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WRXxX14 REVISITED 
by Fred Nachbaur 


This article adds a couple more options to the "mini 
operating system" described for "WRXIé" high-res, 
published in SWN #4:2. The first routines upload or 
download the video data between your static RAM and 
a dimensioned string variable. This allows you to 
save your screens to tape along with the rest of 
your program, and reinstall after loading. The other 
routine is a modification of the COPY command in 
"SRAM HIxRES EXTENDED BASIC," co-authored with 
Gregory C. Harder. It allows you to dump your 
picture to the TS2040 or similar printer. Though our 
mini operating system won’t be anything close to 
SRAM HI#RES, it will at Teast give you something to 
experiment with. 


Finally, we’il put it all to work in an actual 
application; a rewrite of the MANDELPLOT listing of 
SWN #3:5. This demonstrates that you can upgrade 
existing graphics programs to high resolution, even 
with only our rudimentary operating system. Now, 
even it you have just 16K (plus of course the all- 
important SK static RAM), you can turn out fractal 
pictures that are the envy of much larger machines. 
Ts2lésers - don't feel left out. The program will 
run on your machine with very little modification. 


Start with the decimal loader, and the i REM and 2 
REM lines of the WRXi4 article. Fill these REMs as 
described. Now add a 3 REM line containing 24 bytes, 
and a 4 REM containing 84 bytes. Enter the values in 
TABLE i and TABLE 2 to fill these new REMs. The 
result will be three additional commands: 


USR 15755 - Transfer hi-res screen into P£. 
USR 14745 - Transfer P$ into HR display file. 
USR 14790 - COPY HR display to TS2040. 


The screen variable may be named anything you like 
(A+ through Z$}, but MUST be single-dimensioned at 
6144 bytes le.g. DIM P$($1445], and MUST be the 
first variable defined. 


Another use for the UP/DOWNLOAD option is to export 
your screen data to other programs, using Z-XLRS or 
other mass-storage allowing array save/load. For 
example, you could export P$ to Peter McMullin“s 
"big printer" version of Sinc-Artist, to dump your 
hi-res images to "big" printers via any of the 
popular interfaces. Cost is $14.95. A "tiny" COPY, 
smal] banner, or large banner can thereby be 
produced of ANY WRXié-based screen. Contact Peter at 
2340 Queen St. East, Toronto Ontario M4E iG? Canada. 


Listing 1 demonstrates how you can use this, and the 
artwork with the article shows off some actual 
results from the program. RUN the program to start. 
Enter the parameters to locate your plane of 
interest, and the maximum number of iterations that 
the program should perform. You are then prompted 
for "Band Width." This is how many counts are to be 
taken for each band (white or black). Normally you 
will choose 1 (even numbers=white, odd 
numbers=black). If the result is too "busy," try 
using 2 (Oki = white, 2&3 = black, 4&5 = white, 
etc.) or even higher. The run that resulted in the 
picture above was actually three separate runs, with 
the following parameters: 


REAL .24911083, .24?24312, „267241541 
IMAGE „00435020853 

SIDE= .000152289 

ITERATIONS= 120 

BANDWIDTH= 2 


This region is a "close-up" of tion of the 
De. 


a por 
"Gemini 10" picture displayed in #3: 


To use this with the TS2068, pretty much all you 
have to do is omit FAST and SLOW commands, and all 


POKEs and USR calls. You can work up your own w... e. 


REVERSE routine, or simply omit references to this 
option. Similarly, the UPLOAD/DOWNLOAD routines 
won" t be necessary, since you can save screens to 
tape directly, using CODE or SCREENS. Also omit 
lines 770 through 870, 125 and 135. Replace line 275 
with 275 IF CZ2SINT(CZ2) THEN PLOT M,N+3Z. Choose 
white INK, black PAPER, or vice versa, or whatever 
YOU prefer. 


Oliger video users: contact me about a version of 
this program available through the JOBASIC EXCHANGE. 


FIGURE i: TS2040 printout, reversed videc 


FIGURE 2: C.Itoh 8510 printout, via "Big Printer" Sincartist. 


TABLE i: UP/DOWNLOAD ROUTINES LOAD “TABLES % 


START=15758 BYTES=26 


205:130: 65:235:237:174:201:205: 

130: 65: 24:246: 42: id er 17: 
6: O: 25: 17: 0: 32: 1: DO: 
24:201: 


TABLE 2: TS2040 COPY ROUTINE 


ka START=14?¢° EVTESS BA 


: 58:151: 44: 95: 
11:251:205: ZO: 
Zif:25i: 253: 45 
= 7812271213: 
ı 22 O: 33:133: 
311261209: 2251:1121: 40: 
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17: 79:217:251: 31: 48:251:1 R 
230:129:211:251:203: 17: 14:242: 
35: 21: 32:214:215:25i: Bi: 48: 
251: 27: 32:190: 62: 4:211:25 


28:17): 43: 15: 


Cor "MANDEL pi 
DELBROT CoAD 'IMAWDELA. 
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REM HR-MANDELBROT 
20 GOTO 500 (U ısTable 
100 FAST us: J 
102 IF M<192 AND N<192 THEN GOT 
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GOTO MNU+10 HINT: LIST s, 
FOR M=M TO 191 THEN COPY. 


POKE YP,M 


ron No TO 17 LIST 291, Cory 
IF INK vec L3" THEN GOTO MNU 
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RAND 


80 LET J=K 

90 LET C=K ete 
00 LET R=K#K-J#J+X 

10 LET JEZ#K#J+Y 

20 LET K=R 

30 ET ¿Z¿=KxK+Jx*J] 

40 IF Z»4 THEN GOTO 270 
50 LET C 

40 IF 

70 LE 

75 IF 
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NT " INPUT CO-ORDS OF SW 
OF PROPOSED MANDELBROT 
ss "A -CORNER (REAL PART) 
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5 NT AjAT 5,0;"B-CORNER (I 
MA mM" 

5 PUT B 

540 PRINT B;AT 7,0;"LENGTH OF E 

CH SIDE ;"; 


570 INPUT S 
585 LET 6-5/192 

$10 LET X=0 

620 LET Y=X 

630 LET K=X 

640 LET J=X 

450 FOR M=X TO X 

640 FOR N=X TO X 

490 PRINT S;AT 10,0;"ITERATION 
LIMIT="; 

710 INPUT L 

720 PRINT LAT 12,0;"BAND WIDTH 

30 INPUT W 

in PRINT W,,,,"OK?" 

750 INPUT Y$ 

760 IF Y$<>"Y" THEN RUN 

770 LET CLS=14648 

780 LET HR=16628 

790 LET NML=16633 

800 LET RVS=16669 

810 LET PLT=16681 

830 LET YP=16439 

840 LET XP=14438 

350 LET ULD=14758 

840 LET DLD=i 6745 

870 LET CPYsi4790 

880 LET MNU= 1000 

#00 POKE 16565,192 _ 

910 POKE 16670,137 

920 POKE 16673,24 

930 RAND USR CLS 

940 CLS 

950 GOTO 100 

1000 CLS 

1010 RAND USR NML 

1015 SLOW 

1020 PRINT AT 0,0:" main menu“ 

"l: START A NEW RUN ","2: S 

AVE CURRENT PROGRAM STATE" "3: R 
ESUME CURRENT RUN ","4: DISPLAY/ 
COPY PICTURE","5: PROGRESS REPOR 
T","6: STOP * 

1030 LET Z$=INKEYS 


Pa nere 


1040 
1050 
1040 
1070 
1080 
1090 


IF Z$<'" THEN GOTO 1030 

IF Z$="1" THEN RUM 

IF 24-"2"% THEN GOTO 2600 

IF 2$="3" THEN GOTO 100 

IF z$<"4" THEN GOTO 3005 

IF 2$="5" THEN PRINT ,, “ROW 


"3M, "COL:" 3N, 36863-—172xM-N4" T 


D 60" 
1100 
1110 
2600 
2010 
2020 
2030 
2040 
2050 
2640 
3000 
3010 
3020 


IF Z$<"4" THEN STOP 
GOTO 1030 

RAND USR ULD 

CLS 

PRINT " INPUT SAVE NAME:" 
INPUT N$ 

SAVE N$ 

RAND USR DLD 

GOTO MNU 

CLS 

POKE i4418,0 

PRINT AT 23,0;"R= REVERSE, 


Z= COPY , Y= RETURN " 


3030 
3040 
3050 
3040 
3070 
3060 
3090 


4000 


POKE 16418,2 

RAND USR HR 

LET Z$=INKEY$ 

IF Zé="R" THEN RAND USR RUS 
IF Z$="2" THEN RAND USR CPY 
IF Z$<"Y" THEN GOTO MNU 
GOTO 3050 

STOP. 
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